perm filename BIS.IN[PRO,HE]3 blob sn#557436 filedate 1981-01-22 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00010 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	PERIODs.
C00003 00003	EMPLOY.
C00014 00004	ARPA.
C00015 00005	CONF81.
C00016 00006	GM.
C00018 00007	NSF78.
C00021 00008	NSF81.
C00022 00009	SRI.
C00023 00010	Charges for CSD-CF.
C00024 ENDMK
C⊗;
;PERIODs.
 
(period TOTAL		((01 81)(09 81)))

(period FOREVER		((01 00)(12 99)))

(period	ACAD-79/80	((10 79)(06 80)))
(period SUMMER-80	((07 80)(09 80)))
(period ACAD-80/81	((10 80)(06 81)))

(period CAL-1980	((01 80)(12 80)))
(period CAL-1981	((01 81)(12 81)))
(period CAL-1982	((01 82)(12 82)))
(period CAL-1983	((01 83)(12 83)))
(period CAL-1984	((01 84)(12 84)))
 
(period FALL-1980	((10 80)(12 80)))

(period	WINTER-1981	((01 81)(03 81)))
(period	SPRING-1981	((04 81)(06 81)))
(period	SUMMER-1981	((07 81)(09 81)))
(period FALL-1981	((10 81)(12 81)))
 
;EMPLOY.
 
(employ ARNOLD		ARPA	((11 80)(11 80))	 50	sra)
(employ ARNOLD		ARPA	((12 80)(12 80))	 50	sra)
(employ ARNOLD		ARPA	((01 81)(01 81))	-50	sra)   ;fix
(employ ARNOLD		SRI	((01 81)(01 81))	100	sra)   ;fix
(employ ARNOLD		SRI	((02 81)(02 81))	 50	sra)
(employ ARNOLD		ARPA	((03 81)(03 81))	 50	sra)
(employ	ARNOLD		ARPA	SPRING-1981		 50	sra)
(employ	ARNOLD		ARPA	SUMMER-1981		100	sra)

(employ BAKER		ARPA	((11 80)(11 80))	 50	sup)
(employ BAKER		ARPA	((12 80)(12 80))	 50	sup)
(employ BAKER		ARPA	((01 81)(01 81))	-50	sup)   ;fix
(employ BAKER		SRI	((01 81)(01 81))	100	sup)   ;fix
(employ BAKER		SRI	((02 81)(02 81))	 50	sup)
(employ BAKER		ARPA	((03 81)(03 81))	 50	sup)
(employ	BAKER		ARPA	SPRING-1981		 50	sup)
(employ	BAKER		ARPA	SUMMER-1981		100	sup)
 
;The crazy entries below are to match the monthly statement of 11/80.
     (employ BINFORD ARPA    ((11 80)(11 80))         50     sen)
     (employ BINFORD NSF78   ((11 80)(11 80))         50     sen)
     (employ BINFORD SRI     ((11 80)(11 80))          0     sen)
     (employ BINFORD ARPA    ((12 80)(12 80))         40     sen)
     (employ BINFORD NSF78   ((12 80)(12 80))        -50     sen)
     (employ BINFORD SRI     ((12 80)(12 80))        110     sen)
(employ BINFORD	ARPA	((01 81)(02 81))	 30	sen)
(employ BINFORD	SRI	((01 81)(02 81))	 70	sen)
(employ BINFORD	ARPA	((03 81)(09 81))	 50	sen)
(employ BINFORD	NSF81	((03 81)(09 81))	 50	sen)

(employ	BLICHER		ARPA	FALL-1980	 50	sup)
(employ	BLICHER		ARPA	WINTER-1981	 50	sup)
(employ	BLICHER		ARPA	SPRING-1981	 50	sup)
(employ	BLICHER		ARPA	SUMMER-1981	100	sup)

(employ	BROOKS		ARPA	FALL-1980	 50	sra)
(employ	BROOKS		ARPA	WINTER-1981	 50	sra)

(employ	CLARKSON	ARPA	FALL-1980	 25	sra)
(employ	CLARKSON	ARPA	WINTER-1981	 25	sra)
(employ	CLARKSON	ARPA	SPRING-1981	 25	sra)
(employ	CLARKSON	ARPA	SUMMER-1981	100	sra)

(employ COX	NSF78	((10 80)(12 80))	 50	sra)
;COX graduates in December 1980.

(employ CRAIG	NSF78	FALL-1980	 50	sra)
(employ CRAIG	NSF78	((01 81)(02 81)) 50	sra)
(employ CRAIG	NSF81	((03 81)(03 81)) 50	sra)
(employ	CRAIG	NSF81	SPRING-1981	 50	sra)
(employ	CRAIG	NSF81	SUMMER-1981	100	sra)

(employ	GHOSH		ARPA	WINTER-1981	 50	sra)
(employ	GHOSH		ARPA	SPRING-1981	 50	sra)
(employ	GHOSH		ARPA	SUMMER-1981	100	sra)

(employ GOLDMAN	NSF78	FALL-1980	 50	sra)
(employ GOLDMAN	NSF78	((01 81)(02 81)) 50	sra)
(employ GOLDMAN	NSF81	((03 81)(03 81)) 50	sra)
(employ	GOLDMAN	NSF81	SPRING-1981	 50	sra)
(employ	GOLDMAN	NSF81	SUMMER-1981	100	sra)

(employ	HOCHSCHILD	ARPA	FALL-1980	 25	sra)
(employ HOCHSCHILD	ARPA	((01 81)(01 81))	-25	sra)   ;fix
(employ HOCHSCHILD	SRI	((01 81)(01 81))	 50	sra)   ;fix
(employ HOCHSCHILD	SRI	((02 81)(03 81))	 25	sra)
(employ	HOCHSCHILD	ARPA	SPRING-1981	 25	sra)
(employ	HOCHSCHILD	ARPA	SUMMER-1981	100	sra)

(employ LIEBES	SRI	((10 80)(12 80))	100	sen)
(employ LIEBES	NASA	((01 81)(01 81))	 70	sen)
(employ LIEBES	SRI	((01 81)(01 81))	 30	sen)
(employ LIEBES	NASA	((02 81)(02 81))	 81	sen)
(employ LIEBES	SRI	((02 81)(02 81))	 19	sen)
(employ LIEBES	NASA	((03 81)(04 81))	100	sen)
(employ LIEBES	ARPA	((05 81)(05 81))	 19	sen)
(employ LIEBES	NASA	((05 81)(05 81))	 81	sen)
(employ LIEBES	ARPA	((06 81)(09 81))	100	sen)

(employ	LOWE		ARPA	FALL-1980	 35	sra)	;canadian fellow
(employ	LOWE		ARPA	WINTER-1981	 35	sra)	;canadian fellow
(employ	LOWE		ARPA	SPRING-1981	 35	sra)	;canadian fellow
(employ	LOWE		ARPA	SUMMER-1981	100	sra)

(employ LOWRY	ARPA	((11 80)(11 80))	 25	sra)   ;half TA
(employ LOWRY	ARPA	((12 80)(12 80))	 25	sra)   ;half TA
(employ	LOWRY	ARPA	WINTER-1981		 25	sra)   ;half TA
(employ	LOWRY	ARPA	SPRING-1981		 50	sra)
(employ	LOWRY	ARPA	SUMMER-1981		100	sra)

(employ MAPLES	NSF78	FALL-1980	 25	sra)
(employ MAPLES	NSF78	((01 81)(02 81)) 25	sra)
(employ MAPLES	NSF81	((03 81)(03 81)) 25	sra)
(employ	MAPLES	NSF81	SPRING-1981	 25	sra)
(employ	MAPLES	NSF81	SUMMER-1981	100	sra)

(employ	MARIMONT	ARPA	WINTER-1981	 50	sra)
(employ	MARIMONT	ARPA	SPRING-1981	 50	sra)
(employ	MARIMONT	ARPA	SUMMER-1981	100	sra)

(employ	MILLER		ARPA	FALL-1980	  0	sra)   ;he's a TA
(employ	MILLER		ARPA	WINTER-1981	 50	sra)
(employ	MILLER		ARPA	SPRING-1981	 50	sra)
(employ	MILLER		ARPA	SUMMER-1981	100	sra)

(employ MUJTABA	NSF78	FALL-1980	 50	sra)
(employ MUJTABA	NSF78	((01 81)(02 81)) 50	sra)
(employ MUJTABA	NSF81	((03 81)(03 81)) 50	sra)
(employ	MUJTABA	NSF81	SPRING-1981	 50	sra)

(employ	RUTENBURG	ARPA	(10 80)		 50	sra)
(employ	RUTENBURG	ARPA	(11 80)		 50	sra)
(employ	RUTENBURG	ARPA	(12 80)		 75	sra)   ;we owe him
(employ	RUTENBURG	ARPA	WINTER-1981	 50	sra)
(employ	RUTENBURG	ARPA	SPRING-1981	 50	sra)
(employ	RUTENBURG	ARPA	SUMMER-1981	100	sra)

(employ SALISBURY	NSF78	((10 80)(10 80)) 50	sra)
(employ SALISBURY	NSF78	((11 80)(11 80)) 50	sra)
(employ SALISBURY	NSF78	((12 80)(12 80)) 50	sra)
;He'll be on the hand grant (Roth) from 11/80 thru 06/81.
;	∂08-Jan-81  1409	MAS  	jks hand grant nsf78
(employ SALISBURY	NSF78	((01 81)(01 81)) -100	sra)  ;recover 11/80,12/80
(employ SALISBURY	NSF81	((02 81)(03 81))  0	sra)
(employ SALISBURY	NSF81	SPRING-1981	  0	sra)

(employ SIROKER GM	((11 80)(11 80))         20	sup)
(employ SIROKER SRI	((11 80)(11 80))        180	sup)
;	We owe 2 months of SIROKER from a clearing account.
(employ SIROKER CONF81	((12 80)(01 81))        100	sup)
(employ SIROKER ARPA	((02 81)(02 81))         20	sup)
(employ SIROKER CONF81	((02 81)(02 81))         70	sup)
(employ SIROKER SRI	((02 81)(02 81))         10	sup)
(employ SIROKER ARPA	((03 81)(09 81))         50	sup)
(employ SIROKER NSF81	((03 81)(09 81))         50	sup)

;The crazy entries below are to match the monthly statement of 11/80.
     (employ SOROKA  ALCOA   ((11 80)(11 80))          0     sen)
     (employ SOROKA  ALCOA   ((12 80)(12 80))         80     sen)
     (employ SOROKA  ARPA    ((11 80)(11 80))          0     sen)
     (employ SOROKA  ARPA    ((12 80)(12 80))         50     sen)
     (employ SOROKA  GM      ((11 80)(11 80))          0     sen)
     (employ SOROKA  GM      ((12 80)(12 80))         70     sen)
     (employ SOROKA  NSF78   ((11 80)(11 80))        100     sen)
     (employ SOROKA  NSF78   ((12 80)(12 80))        -100    sen)
(employ SOROKA	ALCOA	((01 81)(02 81))	 40	sen)
(employ SOROKA	ARPA	((01 81)(02 81))	 25	sen)
(employ SOROKA	GM	((01 81)(02 81))	 35	sen)
(employ SOROKA	ARPA	((03 81)(09 81))	 25	sen)
(employ SOROKA	NSF81	((03 81)(09 81))	 75	sen)
 
;ARPA.

(dom	ARPA	(85.00 monthly)	(01 81)		bis-aaai-24656)

(dom	ARPA	(54.00 monthly)	(12 80)		tob-pajaro-dunes)

(dom	ARPA	(482.55 monthly)	(12 80)	tob-miami-partial)
(dom	ARPA	(722.00 monthly)	(01 81)	tob-miami-airfare)

(dom	ARPA	(811 monthly)	(01 81)		tob-dc-airfare)
(dom	ARPA	(-744 monthly)	(01 81)		tob-dc-onr-rebate)

;CONF81.

(exp	CONF81	(51.99 monthly)	(12 80)	STORES-12008)

;GM.

;per ∂16-Dec-80  1451	MSM  	budget for films
(exp	GM	(765 monthly)	(01 81)	FLASHLIGHT-FILM)
(exp	GM	(580 monthly)	(02 81)	SPRINKLER-FILM)

;per ∂08-Jan-81  1339	MAS  	Master.out    
(exp	GM	(54.99 monthly)	(01 81)	FREIGHT-PUMA-PARTS)

;per ∂08-Jan-81  1339	MAS  	Master.out    
(exp	GM	(85.99 monthly)	(01 81)	FLASHLIGHT-SLIDES)

;per statement for 12/80.
(dom	GM	(56.85 monthly)	(12 80)	TOB-69741)   ;pajaro dunes

;mistake on the statement for 12/80:
(salary L-CHRISTOPHER	((12 80)(11 81))	(227.21 monthly))
(employ L-CHRISTOPHER	GM	(12 80)		 100	sup)   ;charge it
(employ L-CHRISTOPHER	GM	(01 81)		-100	sup)   ;refund it
;NSF78.

(exp	NSF78	( 91.86 monthly) (01 81)	lamps-291135)
(exp	NSF78	( 37.00 monthly) (01 81)	connectors-291128)
(exp	NSF78	( 74.50 monthly) (01 81)	power-supply-291146)
(exp	NSF78	( 28.76 monthly) (01 81)	developing-film-291136)
(exp	NSF78	( 65.02 monthly) (01 81)	work-prints-291143)
(exp	NSF78	(213.00 monthly) (01 81)	repair-terminal-291112)
 
(dom	NSF78	( 24.05 monthly)(01 81)		bis-cadcam-other)
(dom	NSF78	(120.00 monthly)(12 80)		bis-cadcam-airfare)
 
(exp	NSF78	(504.02 monthly) (11 80)	expendables-11//80)
;12-Dec-80 BIS
;No more expendable materials will be charged to NSF78.
;However, we're going to allow $1000 for expenses which are currently in the
;process of being cleared.
;07-Jan-81 BIS
;The statement for 11/80 shows $504.02; so, presume $495.98 for 12/80.
;17-Jan-81 BIS
;We've now got charges and known commitments exceeding the $495.98,
;so let's skip the charade.

(dom	NSF78	(188 monthly)	(01 81)		jks-new-mexico-36567)

;DR11-C
(cap	DR11-C	NSF78	(01 81)		 425)

;RSX11/M
(cap	RSX11	NSF78	(01 81)		3395.22)
 
;PUMAs:  committed already, but I don't know to what.
(cap	PUMA-RETROFIT	NSF78	(02 81)		8004)
 
;Fix PDP-11.
(exp	NSF78		(1253 monthly)	(01 81)		FIX-PDP11)

;Recovery of $3600 in CSD-CF charges for NSF78.
(exp	NSF78	(-3600 monthly) (12 80)	RECOVERED-CSD-CF-CHARGES)

(exp	NSF78	(111.83 monthly) (12 80)	abacus-electric-291142)
(exp	NSF78	(280.13 monthly) (12 80)	pdp11//60-freight-192949)
(exp	NSF78	(  1.04 monthly) (12 80)	postage)
(exp	NSF78	(  1.95 monthly) (12 80)	centrex)
(exp	NSF78	( 30.13 monthly) (12 80)	centrex)
;NSF81.

;per ∂14-Dec-80  1948	JKS  	force wrist expenses
(exp	NSF81	(3300 monthly)	(03 81)	FORCE-WRIST)

;SRI.
 
(exp	SRI	(65.75 monthly) (11 80)		EXPENDABLE-MATERIALS)   ;actual
(exp	SRI	( 0.00 monthly) (12 80)		EXPENDABLE-MATERIALS)   ;actual
(exp	SRI	(65.75 monthly) ((01 81)(02 81))EXPENDABLE-MATERIALS)   ;estimated

(dom	SRI	(2400 monthly) (01 81)		LUMPED)   ;per budget
;Charges for CSD-CF.

(exp	ARPA	(3492.14 monthly)	(12 80)	CSDCF-09//80)   ;from bill
(exp	ARPA	(3454.32 monthly)	(12 80)	CSDCF-10//80)   ;from bill
(exp	ARPA	(3454.32 monthly)	(12 80)	CSDCF-11//80)   ;from bill
(exp	ARPA	(3384.25 monthly)	((01 81)(12 81)) CSDCF)   ;projected